home *** CD-ROM | disk | FTP | other *** search
Wrap
NeXT TypedStream Data | 1995-06-12 | 9.2 KB | 177 lines
typedstream IBObjectData Object CustomObject Application TextFieldCell ActionCell Helvetica Matrix Control Responder @:@iiii sean-fred ff@@#::s ButtonCell Print Execute Button Load and Run Function Arg 1 TextField Version 2.0 COWS Ready Copyrights are for Weanies ,An Obnoxious Little Application By Sean Luke NXImage Seconds/Timed Entry Repeats HNumber of token-reads performed each timed entry or command-period check ;Seconds before timed entry starts a series of token-reads Engine Helvetica-Bold Revert Foreground NXradio NXradioH Background Radio Runs until Stop Button Locked NXswitch NXswitchH Ignores OutsideControl Runs until Command-Period MenuCell Delete Paste Select All MenuTemplate *@*@ccc Info Panel..._ submenuAction: NXmenuArrow Format Macro Program Control Panel Execution Hide_ Quit_ Font Panel... Italic Underline Superscript Subscript Unscript Copy Font Paste Font Align Left Center Align Right Show Ruler Copy Ruler Paste Ruler WindowTemplate iiii***@s@ Panel FontManager COWSStandardLibrary ClipView ScrollView Scroller _doScroller: @@@ffs NXCursor NXibeam ciifffcfffs [1128c]{\rtf0\ansi{\fonttbl\f0\fmodern Courier;\f1\fswiss Helvetica;} \margl40 \margr40 \pard\tx340\tx720\tx1080\tx1440\tx1800\tx2160\tx2520\tx2880\f0\b0\i0\ulnone\fs24\fc0\cf0 [The following program (sean-fred) is faster at\ doing the "fred thing", but not pretty. Try it first. -- Sean]\ (function sean-fred variable dx dy do\ (while t (do\ (if (< 0 (mouse-x))\ (set dx 1)\ (set dx -1))\ (if (< 0 (mouse-y))\ (set dy 1)\ (set dy -1))\ (move-icon \ (+ (icon-x) dx) \ (+ (icon-y) dy)))))\ [Don Yacktman modified sean-fred program to make Fred behave nicer, but it's slower as a result. This shows that to do truly real-time stuff, we'll need to speed up the interpreter. Try don-fred below.]\ (function don-fred variable dx dy do\ (while t (do\ (if (< 32 (mouse-x))\ (set dx 1)\ (if (= 32 (mouse-x))\ (set dx 0) \ (set dx -1)))\ (if (< 32 (mouse-y))\ (set dy 1)\ (if (= 32 (mouse-y))\ (set dy 0) \ (set dy -1)))\ (move-icon \ (+ (icon-x) dx) \ (+ (icon-y) dy)))))\ \pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320\fc0\cf0 \ COWSInterpreter COWSTestBench FredLibrary Window VersionNumber% Font Manager% File's Owner% Field1% Program Window% MainMenu% Field3% Field%} [43@] IBControlConnector IBConnector hide: terminate: makeKeyAndOrderFront: IBOutletConnector locked foreground timedEntry repeats program interpreter library setTimedEntry: revertTimedEntry: matrix loadAndExecute: load: execute: stop: print: copy: paste: selectAll: delete: delegate alignSelLeft: alignSelCenter: alignSelRight: copyRuler: pasteRuler: toggleRuler: orderFrontFontPanel: superscript: subscript: unscript: copyFont: pasteFont: underline: addFontTrait: